home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip / Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf / Asl-File-req / Asl-File-Req.p < prev    next >
Text File  |  1994-01-17  |  2KB  |  66 lines
  1.  
  2. { ---------------------------------------------
  3.   -- kleines Beispiel für ASL-File-Requester --
  4.   ---------------------------------------------
  5.   --       benötigt Kickstart 2.0 !          --
  6.   ---------------------------------------------
  7.   -- Roger Fischlin                 25.12.91 --
  8.   ---------------------------------------------
  9.   -- Berichtigung:                           --
  10.   --                                         --
  11.   -- Røgersøft                      27.12.93 --
  12.   ---------------------------------------------}
  13.  
  14. {$incl "libraries/asl.h", "asl.lib",'exec.lib'}
  15.  
  16.  
  17. VAR Req      : p_FileRequester;
  18.     Tags     : ARRAY[0..10] OF TagItem;
  19.     FileName : String[100];
  20.     DirName  : String[100];
  21.     Cancel   : Boolean;
  22.  
  23.  
  24.   BEGIN
  25.       { Library öffnen }
  26.       aslbase:=OpenLibrary(ASLNAME,36);
  27.       if aslbase<>NIL THEN
  28.       BEGIN
  29.        DirName :="RAM:";
  30.        FileName :="";
  31.  
  32.        { Tags aufbauen }
  33.        Tags[0].ti_Tag:=ASL_Hail;
  34.        Tags[0].ti_Data:="ASL in KickPascal";
  35.        Tags[1].ti_Tag:=ASL_File;
  36.        Tags[1].ti_Data:=FileName;
  37.        Tags[2].ti_Tag:=ASL_Dir;
  38.        Tags[2].ti_Data:=DirName;
  39.        Tags[3].ti_tag:=TAG_DONE;
  40.  {      Tags[3].ti_Tag:=asl_pattern;
  41.        Tags[3].ti_Data:='#?.p';   <- es werden alle Dateien
  42.                                      angezeigt, die mit .p enden
  43.         Tags[5].ti_tag:=ASL_window;
  44.         Tags[5].ti_Data:=LONG(wo);    <- damit requester auf gewünschtem
  45.                                      Window erscheint  }
  46.  
  47.  
  48.        { Requester-Struktur anlegen lassen }
  49.        Req:=AllocAslRequest(ASL_FileRequest,^Tags);
  50.  
  51.        IF Req<>NIL THEN
  52.           BEGIN
  53.            IF aslrequest(Req,^tags) THEN
  54.             BEGIN
  55.              WRITELN("Drawer : ",Req^.rf_Dir);
  56.              WRITELN("Datei  : ",Req^.rf_File);
  57.             END
  58.            ELSE WRITELN("Keine Datei angewählt.");
  59.           FreeAslRequest(Req);
  60.           END
  61.           ELSE WRITELN("Kann Struktur nicht anlegen !");
  62.       CloseLibrary(AslBase);
  63.      END
  64.      ELSE WRITELN('Fehler beim Öffnen der asl.library');
  65.   END.
  66.